home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00075_Script_BarraScroll < prev    next >
Text File  |  1999-03-19  |  2KB  |  46 lines
  1. property sprLista  -- Sprite que contem lista a ser scrollada
  2. property sprIndicador -- Sprite do indicador de scroll
  3. property posCima, posBaixo
  4.  
  5. property sprMe
  6. property intMinY, intDY -- Posicao possivel para o indicador assumir
  7.  
  8. on getBehaviorDescription
  9.   return "Barra de scroll por onde se pode scrollar paginas inteiras"
  10. end
  11.  
  12. on getPropertyDescriptionList
  13.   set p_list = [ ¼
  14.     #posCima: [ #comment:   "Posicao relativa do botao de scroll por linha p/ cima", ¼
  15.                  #format:   #integer, ¼
  16.                  #default:    -20 ],¼
  17.     #posBaixo: [ #comment:   "(Nao Usado)Posicao relativa do botao de scroll por linha p/ baixo", ¼
  18.                  #format:   #integer, ¼
  19.                  #default:    20 ],¼
  20.      #sprLista: [ #comment:   "Sprite que contem lista a ser scrollada", ¼
  21.                  #format:   #integer, ¼
  22.                  #default:    "" ],¼
  23.     #sprIndicador: [ #comment: "Sprite que contem indicador de scroll", ¼
  24.                      #format:   #integer, ¼
  25.                      #default:    "" ] ¼
  26.   ]
  27.   return p_list
  28. end
  29.  
  30. on mouseDown me
  31.   set y = the locV of sprite (the spriteNum of me)
  32.   put the mouseV into my
  33.   -- Scroll por linha
  34.   if my < (y + posCima) then
  35.     sendSprite(sprLista, #scrollingUp)
  36.   else if my > (y + the height of sprite (the spriteNum of me) - posCima)¼
  37.           then
  38.     sendSprite(sprLista, #scrollingDown)
  39.     
  40.     -- Scroll por pagina
  41.   else if my < the locV of sprite sprIndicador then
  42.     sendSprite(sprLista, #scrollPaginaCima)
  43.   else
  44.     sendSprite(sprLista, #scrollPaginaBaixo)
  45.   end if
  46. end